home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / citrix_find.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  78 lines
  1. # This script was written by John Lampe...j_lampe@bellsouth.net
  2. #
  3. # See the Nessus Scripts License for details
  4. #
  5.  
  6. if(description)
  7. {
  8.  script_id(10942);
  9.  script_bugtraq_id(7276);
  10.  script_version("$Revision: 1.6 $");
  11.  name["english"] = "Check for a Citrix server";
  12.  script_name(english:name["english"]);
  13.  
  14.  desc["english"] = "
  15. A Citrix server is running on this machine.
  16.  
  17. Citrix servers allow a Windows user to remotely
  18. obtain a graphical login (and therefore act as a local
  19. user on the remote host). 
  20.  
  21. NOTE: by default the Citrix Server application 
  22. utilizes a weak 40 bit obfuscation algorithm (not
  23. even a true encryption).  If the default settings have
  24. not been changed, there already exists tools which can
  25. be used to passively ferret userIDs and passwords as they
  26. traverse a network.
  27.  
  28. If this server is located within your DMZ, the risk is
  29. substantially higher, as Citrix necessarily requires
  30. access into the internal network for applications like
  31. SMB browsing, file sharing, email synchronization, etc.
  32.  
  33. If an attacker gains a valid login and password, he may
  34. be able to use this service to gain further access on
  35. the remote host or remote network. This protocol has also
  36. been shown to be  vulnerable to a man-in-the-middle attack.
  37.  
  38. Solution: Disable this service if you do not use it. Also, make sure
  39. that the server is configured to utilize strong encryption. 
  40.  
  41. Risk factor : Low";
  42.  
  43.  script_description(english:desc["english"]);
  44.  
  45.  summary["english"] = "CITRIX check";
  46.  script_summary(english:summary["english"]);
  47.  
  48.  script_category(ACT_GATHER_INFO);
  49.  
  50.  script_copyright(english:"This script is Copyright (C) 2002 John Lampe...j_lampe@bellsouth.net");
  51.  family["english"] = "Useless services";
  52.  script_family(english:family["english"]);
  53.  exit(0);
  54. }
  55.  
  56. #
  57. # The script code starts here
  58. #
  59.  
  60.  
  61.  
  62.  
  63.  
  64. function check_setting(port) {
  65.  if(!get_port_state(port))exit(0);
  66.  soc = open_sock_tcp(port);
  67.  if(soc) {
  68.     r = recv(socket:soc, length:64);
  69.     if ((egrep(pattern:".*ICA.*", string:r))) {
  70.         security_note(port);
  71.     }
  72.     close(soc);
  73.  }
  74. }
  75.  
  76. port = 1494;
  77. check_setting(port:port);
  78.